inherited FCreditoFornecedor: TFCreditoFornecedor
  Left = 445
  Top = 228
  Width = 511
  Height = 393
  Caption = 'Cr'#233'dito do Fornecedor'
  Constraints.MinHeight = 393
  Constraints.MinWidth = 511
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    Width = 503
    Height = 366
    ActivePage = TsCadastro
    TabIndex = 1
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        Top = 278
        Width = 495
      end
      inherited dbgPesquisaPadra: TDBGrid
        Width = 495
        Height = 221
      end
      inherited pnPesquisaPadrao: TPanel
        Width = 495
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        Width = 495
        Height = 335
        inherited Panel2: TPanel
          Width = 493
          inherited BtnIncluir: TBitBtn
            Left = 625
            Visible = False
          end
          inherited BtnEditar: TBitBtn
            Left = 5
          end
          inherited BtnFechar: TBitBtn
            Left = 398
          end
          inherited BtnExcluir: TBitBtn
            Left = 581
            Visible = False
          end
          inherited DBNavigator1: TDBNavigator
            DataSource = DSFornecedor
            Hints.Strings = ()
          end
        end
        inherited Panel3: TPanel
          Top = 275
          Width = 493
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
          inherited BtnSalvar: TBitBtn
            Left = 106
          end
          inherited BtnCancelar: TBitBtn
            Left = 203
          end
        end
        object Panel4: TPanel
          Left = 1
          Top = 36
          Width = 493
          Height = 63
          Align = alTop
          Color = clSilver
          TabOrder = 2
          object Label11: TLabel
            Left = 6
            Top = 5
            Width = 42
            Height = 15
            Caption = 'C'#243'digo:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label12: TLabel
            Left = 6
            Top = 25
            Width = 74
            Height = 15
            Caption = 'Raz'#227'o Social:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label14: TLabel
            Left = 6
            Top = 44
            Width = 50
            Height = 15
            Caption = 'Fantasia:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBText4: TDBText
            Left = 101
            Top = 5
            Width = 49
            Height = 17
            DataField = 'FORN_CODIGO'
            DataSource = DSFornecedor
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
          object DBText7: TDBText
            Left = 101
            Top = 25
            Width = 490
            Height = 17
            DataField = 'FORN_RAZAO'
            DataSource = DSFornecedor
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
          object DBText6: TDBText
            Left = 101
            Top = 44
            Width = 490
            Height = 18
            DataField = 'FORN_FANTASIA'
            DataSource = DSFornecedor
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
          object Label13: TLabel
            Left = 174
            Top = 5
            Width = 37
            Height = 15
            Caption = 'CNPJ:'
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object DBText5: TDBText
            Left = 224
            Top = 5
            Width = 132
            Height = 17
            DataField = 'FORN_CPFCNPJ'
            DataSource = DSFornecedor
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Times New Roman'
            Font.Style = []
            ParentFont = False
          end
        end
        object GBCredito: TGroupBox
          Left = 1
          Top = 99
          Width = 493
          Height = 163
          Align = alTop
          Caption = '  Cr'#233'dito  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 3
          object Label39: TLabel
            Left = 7
            Top = 21
            Width = 27
            Height = 13
            Caption = 'Limite'
          end
          object Label1: TLabel
            Left = 7
            Top = 65
            Width = 23
            Height = 13
            Caption = 'Data'
          end
          object Label40: TLabel
            Left = 7
            Top = 111
            Width = 24
            Height = 13
            Caption = 'Valor'
          end
          object Label2: TLabel
            Left = 117
            Top = 21
            Width = 22
            Height = 13
            Caption = 'Obs:'
          end
          object RxDBCLimiteCredito: TRxDBCalcEdit
            Left = 7
            Top = 39
            Width = 103
            Height = 24
            DataField = 'FORN_VALOR_LIMITE'
            DataSource = DSFornecedor
            Ctl3D = False
            DisplayFormat = '0.,00'
            ButtonWidth = 0
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 0
          end
          object DBDData: TDBDateEdit
            Left = 7
            Top = 84
            Width = 103
            Height = 23
            DataField = 'FORN_DATA_LIMITE'
            DataSource = DSFornecedor
            ButtonWidth = 18
            NumGlyphs = 2
            TabOrder = 1
          end
          object RxDBCCredito: TRxDBCalcEdit
            Left = 7
            Top = 129
            Width = 103
            Height = 24
            DataField = 'FORN_VALOR_CREDITO'
            DataSource = DSFornecedor
            Ctl3D = False
            DisplayFormat = '0.,00'
            ButtonWidth = 0
            NumGlyphs = 2
            ParentCtl3D = False
            TabOrder = 2
          end
          object DBMObsLimite: TDBMemo
            Left = 117
            Top = 39
            Width = 374
            Height = 114
            DataField = 'FORN_OBS_LIMITE'
            DataSource = DSFornecedor
            TabOrder = 3
          end
        end
      end
    end
  end
  object QFornecedor: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM fornecedor order by forn_codigo')
    Left = 280
    Top = 96
  end
  object DSFornecedor: TDataSource
    DataSet = QFornecedor
    Left = 240
    Top = 88
  end
end
